home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
AVOGADRO
/
SCIDISCS
/
DISC1
/
WIMPPOLY
/
!WimpPoly
/
cde
/
WPolyPic
< prev
next >
Wrap
Text File
|
1991-12-12
|
2KB
|
40 lines
PARAMETER (MXFACE=400, MXVTF=10, MAXVTX=360, MAXHIN=180)
C MXFACE maximum no of faces MXVTF max no of vertices in a face
C MAXVTX maximum number of vertices altogether
C MAXHIN maximum number of hinges
COMMON/PolyD/NFACES,MAXVF,NDIH,
1 NNET,NETVX(MXFACE),NETNV(MXVTF,MXFACE),
2 NVTOT,NVTX(MXFACE),IVTX(MXVTF,MXFACE),
3 NHINGS,IHING(MAXHIN,4),HINANG(MAXHIN),
4 X(MAXVTX),Y(MAXVTX),Z(MAXVTX),
5 INDX(MXFACE),ZFACE(MXFACE),DCFACE(3,MXFACE),NFPLOT
C NFACES number of faces in the solid
C MAXVF max number of vertices for a face
C NDIH number of dihedral angles
C NNET number of polygons in the net
C NETVX(I) number of vertices in the Ith polygon
C NETNV(I,J) vertex numbers for the Ith polygon
C NVTOT total number of vertices net and solid
C NVTX(I) number of vertices for Ith face
C IVTX(I,J) vertex numbers for the Ith face
C NHINGS number of hinges
C IHING(I,4) face and vertex no.s for each hinge
C HINANG(I) hinge angles
C X(J),Y(J),Z(J) spatial co-ordinates of vertices derived variables
C INDX(I) Ith face to plot 1 to NFPLOT=number to be plotted
C ZFACE(I) Z co-ordinate of face centre
C DCFACE(3,I) Direction cosines of normal to the faces
C
COMMON/PIC/IX0,IY0,X0S,Y0S,Z0S,X0N,Y0N,ISTK3D,ISTKNT,
1 ROTX,ROTY,ROTZ,SCLONE,SCLNET,SCL3D
C IX0,IY0 origin of polyhedra on screen
C X0S,Y0S,Z0S centre of solid
C X0N,Y0N centre of net
C ISTK3D=0 for 3D solid, =1 for wire frame
C ISTKNT=0 for filled face for net, =1 for wire frame
C ROTX,ROTY,ROTZ X,Y,Z rotations angles degrees
C SCLONE scale to convert original co-ords to unit size
C SCLNET User defined scale to be applied to net
C SCL3D User defined scale to be applied to solid